home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / cg.lha / cg / hag-m / hag next >
Text File  |  1992-11-24  |  248b  |  18 lines
  1. /* hag */
  2.  
  3. RULE
  4.  
  5. R    = F [n] -> [r OUT] { F:n :- n; r :- F:r; } .
  6.  
  7. F    = -> [n] [r]  { r := 1; } <
  8.  
  9.    P1    = -> F { F   := {IF n <= 1
  10.              THEN F := Tree.mP2 ();
  11.              ELSE F := Tree.mP1 ();
  12.              END;};
  13.          F:n := n - 1;
  14.          r   := F:r * n; } .
  15.  
  16.    P2    = .
  17. >.
  18.